home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #306 (1994)(Rhein-Sieg-Soft).zip / Franz PD Disk #306 (1994)(Rhein-Sieg-Soft).adf / mand2000 / arexx / Startup.mnd2 < prev    next >
Text File  |  1993-11-03  |  3KB  |  76 lines

  1. /* Startup script for Mand2000. */
  2.  
  3. /* This script is supplied with the Mand2000 demo and release */
  4. /* versions and may be freely distributed. */
  5. /* Copyright 1993 Cygnus Software. */
  6.  
  7. /*
  8.     If this script is put in the rexx:  directory, it will
  9. automatically be run each time Mand2000 starts up, allowing you to
  10. customize Mand2000 by changing settings, adding menus, or whatever you want
  11. to do.  This startup script relies on several other scripts being in the
  12. rexx:  directory also.  These scripts should be distributed and installed
  13. together with this one.
  14.  */
  15.  
  16. portname = address()    /* Retrieve the current port name. */
  17. /* If the portname does not start with MAND2000 then this script must */
  18. /* have been run with rx, rather than from Mand2000.  Therefore we */
  19. /* need to set the port name.  We do not always set the port name */
  20. /* because it is better to let Mand2000 set it for us, so that */
  21. /* this script can be used with windows other than the one with */
  22. /* port name MAND2000.1. */
  23. if (left(portname, 8) ~= "MAND2000") THEN
  24.     address 'MAND2000.1'
  25.  
  26. /* Uncomment this and put in the name of a picture you want loaded */
  27. /* at startup.  This can be very handy not only for loading a */
  28. /* favourite picture, but also for all of the settings that go with */
  29. /* it, like fractal type, colour mapping, palette, etc. */
  30. /*open 'filename=yourpicture'*/
  31.  
  32.  
  33. /* Clear all user menus - this is in case this startup script is called */
  34. /* a second time, after the user menus have been built up. */
  35.  
  36. clearmenus
  37.  
  38. /* Add commands to the user menu.  The first parameter is the title */
  39. /* that appears in the menus.  The optional `Shortcut' commands can */
  40. /* be used to specify a keyboard shortcut.  Make sure it isn't one */
  41. /* that's already been used.  The rest of the line is the command */
  42. /* that should be sent to ARexx when this menu is selected, typically */
  43. /* an ARexx script name (the .mnd2 is assumed) and some parameters. */
  44.  
  45. menu '"Start Iter Movie"' itermovie start
  46. menu '"Start Julia Movie"' juliamovie start
  47. menu '"Start Sequence"' calcsequence start
  48. menu '"Zoom in 10%"' Shortcut 1 Zoom10percent
  49. menu '"Zoom out 10%"' Shortcut 2 ZoomOut10percent
  50. menu '"Set Max Iters"' Shortcut X setmaxiters
  51. menu '"Print Project Attributes"' PrintAttr project
  52. menu '"Print Global Attributes"' PrintAttr global
  53. menu '"Print Project Commands"' PrintCommands project
  54. menu '"Print Global Commands"' PrintCommands global
  55. menu '"Start custom colour map"' CustomColourMap start
  56. menu '"Stop custom colour map"' CustomColourMap stop
  57. menu '"Start Demo Mode"' Demo start
  58.  
  59. /* This command makes the title bar visible, if it is currently hidden. */
  60. /*titlebar on*/
  61.  
  62. /* This command moves Mand2000 to the workbench screen. */
  63. /*workbench on*/
  64.  
  65. /* Tell Mand2000 to print error messages on bad ARexx commands. */
  66. /* In this mode Mand2000 will print a message whenever it is */
  67. /* passed a command it doesn't understand.  A lot of the messages */
  68. /* generated this way will be unavoidable extraneous messages, caused */
  69. /* by commands that are meant for somebody else.  Remove this line */
  70. /* to make your ARexx scripts execute silently. */
  71. /* Note also that if you want your ARexx scripts to be able to print */
  72. /* anything out, you must either run Mand2000 from the shell, or else */
  73. /* have a 'window=con:0/0/600/150/Mand2000...' tool type in your icon. */
  74. /* Mand2000's icon has such a tooltype by default. */
  75. verbose on
  76.